** Esto correspo de al patron Active Record
** Desventaja para sistemas grandes
DEFINE CLASS datatemas as databaseclass

	vidtema = "";
	vnombre = "";
	
	FUNCTION insert
	
	databaseclass.abrirconeccion
		
		INSERT INTO tema (idtema, nombre) ;
		VALUES (this.vidtema, this.vnombre)

	ENDFUNC
	
	FUNCTION update
		
		update tema set ;
		nombre = this.vnombre, ;
		where idtema = this.vidtema
		
	endfunc
	
	FUNCTION delete
	
	consulta = delete from tema where idtema = vidtema

	ENDFUNC
		
	FUNCTION getone 
		PARAMETERS bidtema

		select * from tema where idtema = bidtema into cursor curTemaBuscado

		this.vnombre = curTemaBuscado.nombre
				
	ENDFUNC
	
	FUNCTION getall as Cursor
		
		LOCAL vcurtemas
		
		SELECT * FROM tema INTO CURSOR vcurtemas
		
		RETURN
		
	ENDFUNC

ENDDEFINE